home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Win2K ActiveDirectory Browsing 1.xpl < prev    next >
Text File  |  2002-01-10  |  1KB  |  37 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Desktop\Icons\'My Network Places' Options"
  5. "NAME"="Show ActiveDirectory link"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Show ActiveDirectory in My Network Places"
  8. "DESCRIPTION 1"="When you are connected to a domain in Windows, Windows will also display a link to browse the ActiveDirectory of that domain."
  9. "DESCRIPTION 2"="If this setting is enabled, you can see this link which is the default setting of Windows. If you deactivate (uncheck) it, this link will not be visible any more."
  10. "COMMENT 1"="----"
  11. "VERSION"="1.00"
  12. "AUTHOR"="Xteq Systems"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "CONTACTURL"="http://www.xteq.com/"
  15. "OSVERSION"="000101"
  16.  
  17. sP="HKEY_CURRENT_USER\SOFTWARE\Policies\Microsoft\Windows\Directory UI\HideDirectoryFolder" 'DW
  18.  
  19. SUB Plugin_Initialize
  20.  s=RegReadValue(sP)
  21.  if s=0 OR IsEmpty(s) then
  22.     Call SetUIElement(1,true)
  23.  end if
  24. END SUB
  25.  
  26. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  27.  s=GetUIElement(1)
  28.  if s=true then
  29.     if RegValueExists(sP) then Call RegDeleteValue(sP)
  30.  else
  31.     Call RegWriteValue(sP,1,2)
  32.  end if
  33. END SUB
  34.  
  35. SUB Plugin_Terminate
  36. END SUB
  37.